lisp lock object unlock object